Chart A
## Warning: Ignoring 615 observations
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
Chart B
# Plot scores for WaHi/Inwood bakeries
wahi_bakery <- bakery_inspec %>%
group_by(dba) %>%
filter(zipcode %in% c("10031", "10032", "10033", "10034", "10040"))
## make plot ##
Chart C
nyc_inspections %>%
filter(boro != "Missing") %>%
plot_ly(x = ~boro, y=~score, color = ~critical_flag, type = "bar")
## Warning: Ignoring 22346 observations
Chart D
nyc_inspections %>%
filter(boro != "Missing") %>%
plot_ly(y=~score, color = ~boro, type = "box")
## Warning: Ignoring 22346 observations